00100		DIMENSION I(4),J(3)
00200		EQUIVALENCE (I(2),J)
00300	1	FORMAT(' TYPE INPUT  NAME  '$)
00400	2	FORMAT(' TYPE OUTPUT NAME  '$)
00500	3	FORMAT(4I)
00600	4	FORMAT(A10)
00700		DOUBLE PRECISION N
00800		TYPE 1
00900		ACCEPT 4,N
01000	CC	CALL DEFINE(1,0,NONO,N)
01050		CALL IFILE(20,N)
01100		TYPE 2
01200		ACCEPT 4,N
01300		CALL DEFINE(1,0,NONO,N)
01400	5	READ(20,3,END=6)I
01500		WRITE(1,3)J
01600		GO TO 5
01700	6	TYPE 7,N
01800	7	FORMAT(1XA10,' WAS WRITTEN')
01900		END